﻿'TODO: Realizar la implementacion de pantalla detalles
Imports Tom0014
Imports Tom0014TableAdapters

Partial Class Registro_crias
    Inherits System.Web.UI.Page

    Protected Sub Registro_crias_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim iAnimal As New Integer
            Try
                iAnimal = Request.QueryString("Animal")
            Catch ex As Exception
                Exit Sub
            End Try

            If Not iAnimal = 0 Then
                Dim crias As New CriasDataTable
                Dim _crias As New CriasTableAdapter
                Dim _animal As New animalTableAdapter
                Dim pondera As New ponderacionesDataTable
                Dim _pondera As New ponderacionesTableAdapter
                Dim animal = _animal.GetAnimalById(iAnimal)

                If animal.Count > 0 Then lblAnimal.Text = animal(0).claveSNLA + " " + animal(0).nombre

                crias = _crias.GetCriasById(iAnimal)
                Dim hijos = crias.Select("Sexo='T'")
                Dim hijas = crias.Select("Sexo='V'")
                lblHijos.Text = hijos.Length.ToString
                lblHijas.Text = hijas.Length.ToString
                lblCrias.Text = crias.Count.ToString

                Dim iTientaAC, iTientaAP, iHijosTientaAC, iHijasTientaAC, iHijosTientaAP, iHijasTientaAP, _
                    iLidiaAC, iLidiaAP, iHijosLidiaAC, iHijasLidiaAC, iHijosLidiaAP, iHijasLidiaAP As Integer
                Dim acTientaAC, acTientaAP, acTientaACHijos, acTientaACHijas, acTientaAPHijos, acTientaAPHijas, _
                    acLidiaAC, acLidiaAP, acLidiaACHijos, acLidiaACHijas, acLidiaAPHijos, acLidiaAPHijas As Integer


                If crias.Count > 0 Then ' Si el animal tiene crias
                    For Each cria As CriasRow In crias.Rows ' Por cada cria analiza sus tientas y lidia
                        ' ******************** T I E N T A S ********************************
                        If Not cria.Istienta_acNull And cria.tienta_ac.Length >= 1 Then ' Tengo evaluacion
                            Dim ipondera As Integer
                            Try
                                ipondera = _pondera.pondera("NOTAAC", cria.tienta_ac.Trim).Value
                            Catch ex As Exception
                                ipondera = 0
                            End Try
                            If Not ipondera = 0 Then
                                ' Tienta General
                                acTientaAC += ipondera
                                iTientaAC += 1

                                If cria.sexo = "T" Then 'Tienta HIJOS AC
                                    acTientaACHijos += ipondera
                                    iHijosTientaAC += 1
                                Else
                                    acTientaACHijas += ipondera
                                    iHijasTientaAC += 1
                                End If
                            End If
                        End If
                        If Not cria.Istienta_apNull And cria.tienta_ap.Length >= 1 Then
                            Dim ipondera As Integer
                            Try
                                ipondera = _pondera.pondera("NOTAAP", cria.tienta_ap.Trim).Value
                            Catch ex As Exception
                                ipondera = 0
                            End Try
                            If Not ipondera = 0 Then
                                acTientaAP += ipondera
                                iTientaAP += 1
                                If cria.sexo = "T" Then 'Tienta HIJOS AC
                                    acTientaAPHijos += ipondera
                                    iHijosTientaAP += 1
                                Else
                                    acTientaAPHijas += ipondera
                                    iHijasTientaAP += 1
                                End If
                            End If
                        End If
                        ' ******************** L I D I A S ********************************
                        If Not cria.Islidia_acNull And cria.lidia_ac.Length >= 1 Then ' Tengo evaluacion
                            Dim ipondera As Integer
                            Try
                                ipondera = _pondera.pondera("NOTAAC", cria.lidia_ac.Trim).Value
                            Catch ex As Exception
                                ipondera = 0
                            End Try
                            If Not ipondera = 0 Then
                                ' Lidia General
                                acLidiaAC += ipondera
                                iLidiaAC += 1

                                If cria.sexo = "T" Then 'Lidia HIJOS AC
                                    acLidiaACHijos += ipondera
                                    iHijosLidiaAC += 1
                                Else
                                    acLidiaACHijas += ipondera
                                    iHijasLidiaAC += 1
                                End If
                            End If
                        End If
                        If Not cria.Islidia_apNull And cria.lidia_ap.Length >= 1 Then
                            Dim ipondera As Integer
                            Try
                                ipondera = _pondera.pondera("NOTAAP", cria.lidia_ap.Trim).Value
                            Catch ex As Exception
                                ipondera = 0
                            End Try
                            If Not ipondera = 0 Then
                                acLidiaAP += ipondera
                                iLidiaAP += 1
                                If cria.sexo = "T" Then 'Lidia HIJOS AC
                                    acLidiaAPHijos += ipondera
                                    iHijosLidiaAP += 1
                                Else
                                    acLidiaAPHijas += ipondera
                                    iHijasLidiaAP += 1
                                End If
                            End If
                        End If
                    Next

                    ' ******************** T I E N T A S ********************************
                    If iTientaAC > 0 Then
                        acTientaAC = acTientaAC / iTientaAC
                        lblTienta_AC.Text = _pondera.NOTAAC("NOTAAC", acTientaAC)
                    End If
                    If iTientaAP > 0 Then
                        acTientaAP = acTientaAP / iTientaAP
                        lblTienta_AP.Text = _pondera.NOTAAC("NOTAAP", acTientaAP)
                    End If
                    ' TIENTA HIJOS AC 
                    If iHijosTientaAC > 0 Then
                        acTientaACHijos = acTientaACHijos / iHijosTientaAC
                        lblTientaAC_Hijos.Text = _pondera.NOTAAC("NOTAAC", acTientaACHijos)
                    End If
                    ' TIENTA HIJAS AC 
                    If iHijasTientaAC > 0 Then
                        acTientaACHijas = acTientaACHijas / iHijasTientaAC
                        lblTientaAC_Hijas.Text = _pondera.NOTAAC("NOTAAC", acTientaACHijas)
                    End If
                    ' TIENTA HIJOS AP 
                    If iHijosTientaAP > 0 Then
                        acTientaAPHijos = acTientaAPHijos / iHijosTientaAP
                        lblTientaAP_Hijos.Text = _pondera.NOTAAC("NOTAAP", acTientaAPHijos)
                    End If
                    ' TIENTA HIJAS AP 
                    If iHijasTientaAP > 0 Then
                        acTientaAPHijas = acTientaAPHijas / iHijasTientaAP
                        lblTientaAP_Hijas.Text = _pondera.NOTAAC("NOTAAP", acTientaAPHijas)
                    End If
                    ' ******************** L I D I A S ********************************
                    If iLidiaAC > 0 Then
                        acLidiaAC = acLidiaAC / iLidiaAC
                        lblLidia_AC.Text = _pondera.NOTAAC("NOTAAC", acLidiaAC)
                    End If
                    If iLidiaAP > 0 Then
                        acLidiaAP = acLidiaAP / iLidiaAP
                        lblLidia_AP.Text = _pondera.NOTAAC("NOTAAP", acLidiaAP)
                    End If
                    ' Lidia HIJOS AC 
                    If iHijosLidiaAC > 0 Then
                        acLidiaACHijos = acLidiaACHijos / iHijosLidiaAC
                        lblLidiaAC_Hijos.Text = _pondera.NOTAAC("NOTAAC", acLidiaACHijos)
                    End If
                    ' Lidia HIJAS AC 
                    If iHijasLidiaAC > 0 Then
                        acLidiaACHijas = acLidiaACHijas / iHijasLidiaAC
                        lblLidiaAC_Hijas.Text = _pondera.NOTAAC("NOTAAC", acLidiaACHijas)
                    End If
                    ' Lidia HIJOS AP 
                    If iHijosLidiaAP > 0 Then
                        acLidiaAPHijos = acLidiaAPHijos / iHijosLidiaAP
                        lblLidiaAP_Hijos.Text = _pondera.NOTAAC("NOTAAP", acLidiaAPHijos)
                    End If
                    ' Lidia HIJAS AP 
                    If iHijasLidiaAP > 0 Then
                        acLidiaAPHijas = acLidiaAPHijas / iHijasLidiaAP
                        lblLidiaAP_Hijas.Text = _pondera.NOTAAC("NOTAAP", acLidiaAPHijas)
                    End If

                End If
            End If
        End If
    End Sub
End Class
